home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / prgs / GUI / switchgad.b < prev   
Text File  |  1996-09-12  |  1KB  |  50 lines
  1. {* 
  2. ** Demonstration of String Gadget Activation.
  3. ** ReqEd was used for the window design.
  4. **
  5. ** Author: David J Benn
  6. **   Date: 22nd October 1995
  7. *}
  8.  
  9. Declare Function ActivateGadget(gad&,wdw&,req&) Library intuition
  10.  
  11. CONST NULL = 0&
  12. CONST close_wdw = 256
  13. CONST button_next = 252
  14.  
  15. SUB NextStringGad(ADDRESS wdw, SHORTINT theGadget)
  16. ADDRESS gad
  17.   Gadget Output theGadget
  18.   gad = Gadget(4)
  19.   If gad <> NULL Then Call ActivateGadget(gad,wdw,NULL)
  20. END SUB
  21.  
  22. SUB MyReq
  23. SHORTINT theGadget, n, gadgetID
  24.   WINDOW 9,,(170,50)-(464,226),8
  25.   {* RENDER GADGETS, BEVEL-BOXES AND TEXT *}
  26.   GADGET 255,ON,"One",(79,22)-(220,36),STRING
  27.   GADGET 254,ON,"Two",(79,55)-(220,69),STRING
  28.   GADGET 253,ON,"Three",(79,88)-(220,102),STRING
  29.   BEVELBOX (11,7)-(275,155),1
  30.   GADGET 252,ON,"Next",(113,125)-(170,144),BUTTON
  31.   {* GADGET HANDLING CODE STARTS HERE *}
  32.   gadgetID = 255
  33.   REPEAT
  34.     GADGET WAIT 0
  35.     theGadget = GADGET(1)
  36.     IF theGadget = button_next THEN 
  37.      NextStringGad(WINDOW(7),gadgetID)
  38.           --gadgetID
  39.        IF gadgetID = 252 THEN gadgetID = 255
  40.     END IF
  41.   UNTIL theGadget = close_wdw
  42.   {* CLEAN UP *}
  43.   FOR n=255 TO 252 STEP -1
  44.     GADGET CLOSE n
  45.   NEXT
  46.   WINDOW CLOSE 9 
  47. END SUB
  48.  
  49. MyReq
  50.